home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / TrashIt.adf / TrashIt 1.1 / Install TrashIt < prev    next >
Text File  |  1993-09-25  |  5KB  |  178 lines
  1.  
  2. ; Install script for TrashIt (Workbench 2.1 or higher)
  3.  
  4. (set @default-dest "SYS:WBStartup")
  5. (set old_level @user-level)
  6.  
  7. (set reqtoolslib "reqtools.library")
  8. (set TrashItapp "TrashIt")
  9.  
  10. ;=============================================================================
  11. ; English strings
  12.  
  13. (set default_lang 1)
  14.  
  15. (set #bad-kick
  16. (cat "You must be using Kickstart 2.04 to install using this script!"
  17. ))
  18.  
  19. (set #reqtools-copy "Copying reqtools.library to Libs:...")
  20. (set #reqtools-help "Copies the reqtools.library to the Libs: directory")
  21.  
  22. (set #TrashIt-copy "Copying TrashIt...")
  23. (set #TrashIt-help "Copies TrashIt to your disk for usage.")
  24.  
  25. (set #which-language
  26. (cat "\nWhich languages should be installed?"
  27. ))
  28. (set #which-language-help
  29. (cat "\nThe Amiga can be operated in many different "
  30.       "languages. If you want TrashIt to use the same "
  31.       "language as the Amiga Workbench "
  32.       "then a catalog file must be copied to your"
  33.       " system disk for each language supported.\n\n"
  34.       "To reduce the amount of space consumed by the"
  35.       " language files, you can select to have only the"
  36.       " files of specific languages copied.\n\n"
  37.       "Simply check the boxes of the languages you wish"
  38.       " to have available on your system.\n\n"
  39.       @askoptions-help
  40. ))
  41.  
  42. (set #install-msg
  43. (cat "\n\nTrashIt installation script.\n"
  44.      "This script installs TrashIt and the ReqTools.library on your Amiga.\n\n"
  45.      "Read the TrashIt.guide file for more information.\n"
  46.      "TrashIt © 1993 Bert Wynants\n"
  47.      "ReqTools © 1991-1993 Nico François\n"
  48.      "All rights reserved."
  49. ))
  50.  
  51.  
  52. ;=============================================================================
  53. ; Dutch strings
  54.  
  55. (if (= @language "nederlands")
  56. (
  57.  
  58. (set default_lang 4)
  59.  
  60. (set #bad-kick
  61. (cat "U moet Kickstart 2.04 gebruiken om met dit installatie script te installeren!"
  62. ))
  63.  
  64. (set #reqtools-copy "Kopieer reqtools.library naar Libs:...")
  65. (set #reqtools-help "Kopieert de reqtools.library naar de Libs: lade")
  66.  
  67. (set #TrashIt-copy "Kopieer TrashIt...")
  68. (set #TrashIt-help "Kopieert TrashIt naar uw disk om te gebruiken")
  69.  
  70. (set #which-language
  71. (cat "\nWelke talen moeten geïnstalleerd worden?"
  72. ))
  73. (set #which-language-help
  74. (cat "\nDe Amiga kan werken in verschillende talen."
  75.       " Als u wilt dat TrashIt in dezelfde taal werkt als uw Workbbench"
  76.       " dan moet er voor elke taal een bestand naar"
  77.       " uw systeem disk gekopieerd worden.\n\n"
  78.       "Om de grootte van het geheugen die de taal bestanden"
  79.       " innemen te verkleinen, kunt u een keuze maken uit"
  80.       " de talen, die vervolgens naar uw systeem disk worden"
  81.       " gekopieerd .\n\nU hoeft alleen die talen die u op"
  82.       " uw systeem wilt hebben aan te klikken.\n\n"
  83.      @askoptions-help
  84. ))
  85.  
  86. (set #install-msg
  87. (cat "\n\nTrashIt installatie script.\n"
  88.      "Dit script installeert TrashIt en de ReqTools library op uw Amiga.\n\n"
  89.      "Lees het TrashIt.guide bestand voor meer informatie\n"
  90.      "TrashIt © 1993 Bert Wynants\n"
  91.      "ReqTools © 1991-1993 Nico François\n"
  92.      "All rights reserved."
  93. ))
  94.  
  95. ))
  96.  
  97. ;=============================================================================
  98. ; procedure to call on exit...
  99.  
  100. (procedure TERMINATE
  101.  
  102. )
  103.  
  104. ;=============================================================================
  105. ; termination stuff
  106.  
  107. (onerror (TERMINATE))
  108.  
  109. ;=============================================================================
  110. ; make sure we are running under a 2.04 ROM
  111.  
  112. (if (< (/ (getversion) 65536) 37)
  113. (
  114.     (abort #bad-kick)
  115. ))
  116.  
  117. ;=============================================================================
  118.  
  119. (message #install-msg)
  120.  
  121. ; copy reqtools, including version checking
  122.  
  123. (copylib
  124.         (prompt "\n" #reqtools-copy)
  125.         (help #reqtools-help)
  126.         (source reqtoolslib)
  127.         (dest "Libs:")
  128.         (confirm)
  129. )
  130.  
  131. (complete 20)
  132.  
  133. ; copy TrashIt, including version checking
  134. (copylib
  135.     (prompt "\n" #TrashIt-copy)
  136.     (help #TrashIt-help)
  137.     (source TrashItapp)
  138.     (dest @default-dest)
  139.     (infos)
  140.     (confirm)
  141. )
  142.  
  143. (complete 50)
  144.  
  145. (if (exists "SYS:Locale")
  146. (
  147.     (if (exists "LOCALE:")
  148.     (
  149.         (user 2)
  150.         (set lang (askoptions (prompt #which-language)
  151.                               (help #which-language-help)
  152.                               (choices "English" "Nederlands")
  153.                               (default default_lang)
  154.                   )
  155.         )
  156.         (user old_level)
  157.  
  158.         (set n 0)
  159.         (while (set language (select n "english" "nederlands" ""))
  160.         (
  161.             (if (IN lang n)
  162.             (
  163.                 (if (<> 0 n)
  164.                 (
  165.                     (makedir (cat "LOCALE:Catalogs/" language))
  166.                     (copyfiles (source (cat "Catalogs/" language))
  167.                                (dest (cat "LOCALE:Catalogs/" language))
  168.                                (all)
  169.                     )
  170.                 ))
  171.             ))
  172.             (set n (+ n 1))
  173.         ))
  174.     ))
  175. ))
  176.  
  177. (complete 100)
  178.